perm filename DCSTAT.MID[NET,MRC]2 blob sn#318463 filedate 1977-11-20 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE DCSTAT
C00004 ENDMK
C⊗;
TITLE DCSTAT

DCHOST==37
DCSOKT==703

.INSRT NETWRK

DCSTAT:	JFCL
	RESET
	MOVE 17,[PDL(-PDLLEN)]
	MOVEI DCHOST
	MOVEM HOST
	MOVEI DCSOKT
	MOVEM ICPSKT
	PUSHJ 17,CONECT
HEADER:	PUSHJ 17,RENPRE
	CAMN 15,[ASCII/.J900/]
	 EXIT
	CAME 15,[ASCII/.I280/]
	 JRST HEADER
STALIN:	SKIPN FLAGDD
	 OUTSTR [ASCIZ/] /]
STATUS:	PUSHJ 17,NETICW
	OUTCHR
	CAIE ↑J
	 JRST STATUS
	PUSHJ 17,NETICW
	SKIPE FLAGDD
	 OUTCHR
	CAIN <" >
	 JRST STALIN
	PUSHJ 17,RENLIN
	JRST HEADER

; RENLIN -- REQUEST END: PROCEED TO NEW LINE
;
RENLIN:	PUSHJ 17,NETICW
	SKIPE FLAGDD
	 OUTCHR
	CAIE ↑J
	 JRST RENLIN
	POPJ 17,

; RENPRE -- REQUEST END: RETURN PREFIX

RENPRE:	SETZ 15,
	MOVE 16,[440700,,15]
RENPRL:	PUSHJ 17,NETICW
	SKIPE FLAGDD
	 OUTCHR
	CAIE ↑M
	 CAIN ↑J
	  JRST RENPRE
	IDPB 16
	TRNN 15,376
	 JRST RENPRL
	SKIPE FLAGDD
	 JRST RENLIN
	LDB [350700,,1]
	CAIN "?
	 JRST [	OUTSTR [ASCIZ/ ?? Fatal Datacomputer error ??/]
		EXIT]
	CAIE "!
	 JRST RENLIN
	OUTSTR [ASCIZ/ (/]
RENLIP:	PUSHJ 17,NETICW 
	CAIE ↑I
	 JRST RENLIP
	PUSHJ 17,NETICW
RENLPP:	OUTCHR
	PUSHJ 17,NETICW
	CAIE 15
	 JRST RENLPP
	PUSHJ 17,NETICW
	OUTSTR [ASCIZ/)
/]
	POPJ 17,

CONSTA

FLAGDD:	0

PDLLEN==100
PDL:	BLOCK PDLLEN

END DCSTAT